unit dmProject ;

interface

uses
   SysUtils,
   Classes,
   ActnList,
   ImgList,
   Controls,
   TntDialogs,
   Dialogs ;

type
   TProject = class( TDataModule )
      ActionList : TActionList ;
      actNew : TAction ;
      actOpen : TAction ;
      actSave : TAction ;
      actSaveAs : TAction ;
      actExit : TAction ;
      TntOpenDialog : TTntOpenDialog ;
      TntSaveDialog : TTntSaveDialog ;
    actView: TAction;
      procedure actExitExecute( Sender : TObject ) ;
   private
      { Private declarations }
   public
      { Public declarations }
   end ;

var
   dmProject          : TProject ;

implementation

uses
   uMain ;

{$R *.dfm}

procedure TProject.actExitExecute( Sender : TObject ) ;
begin
   frmMain.Close ;
end ;

end.

